COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TBLTST"
C00004 ENDMK
C⊗;
BEGIN "TBLTST"

REQUIRE "HELIB[1,3]" LIBRARY;

EXTERNAL REAL TTRAD;
EXTERNAL INTEGER TTINV;

DEFINE CRLF="'15&'12", RAD=".0174533";

EXTERNAL PROCEDURE TTDELT(REAL R);
EXTERNAL PROCEDURE TTREAD;
EXTERNAL PROCEDURE TTLOCK;

INTEGER I, J;
STRING STR;

SETFORMAT(10,4);
TTREAD;
WHILE TRUE DO
	BEGIN "LOOP"
	IF TTINV THEN OUTSTR((IF TTINV<0 THEN "INVALID POSITION" ELSE
		"TIMED OUT")&CRLF);
	OUTSTR(CRLF&"POSITION="&CVF(TTRAD/RAD)&" DEGREES"&CRLF&"*");
	STR ← INCHWL;
	I ← STR[1 FOR 1];
	IF I="D" THEN TTDELT(REALSCAN(STR←STR[2 FOR ∞],I)*RAD) ELSE
	IF I="R" THEN TTREAD ELSE
	IF I="L" THEN TTLOCK ELSE
	OUTSTR(" ??");
	END "LOOP";
END "TBLTST";